object IssueDocForm: TIssueDocForm
  Left = 0
  Top = 0
  Caption = #1054#1090#1095#1077#1090' '#1087#1086' '#1074#1099#1076#1072#1085#1085#1099#1084' '#1076#1086#1082#1091#1084#1077#1085#1090#1072#1084
  ClientHeight = 600
  ClientWidth = 937
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lc1: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 937
    Height = 600
    Align = alClient
    TabOrder = 0
    LayoutLookAndFeel = lcf1
    object grd1: TcxGrid
      Left = 10
      Top = 41
      Width = 250
      Height = 200
      TabOrder = 5
      object v1: TcxGridDBTableView
        Navigator.Buttons.CustomButtons = <>
        DataController.DataSource = srcRep
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        object clv1ARCPLACE: TcxGridDBColumn
          DataBinding.FieldName = 'ARCPLACE'
          Visible = False
        end
        object clv1OBJNAME: TcxGridDBColumn
          Caption = #1054#1073#1098#1077#1082#1090
          DataBinding.FieldName = 'OBJNAME'
          Visible = False
          GroupIndex = 0
          Width = 101
        end
        object clv1ROOMNAME: TcxGridDBColumn
          Caption = #1055#1086#1084#1077#1097#1077#1085#1080#1077
          DataBinding.FieldName = 'ROOMNAME'
          Visible = False
          GroupIndex = 1
          Width = 103
        end
        object clv1RACKNAME: TcxGridDBColumn
          Caption = #1057#1077#1083#1072#1078
          DataBinding.FieldName = 'RACKNAME'
          Width = 20
        end
        object clv1SHELF: TcxGridDBColumn
          Caption = #1055#1086#1083#1082#1072
          DataBinding.FieldName = 'SHELF'
          Width = 42
        end
        object clv1NUMBER: TcxGridDBColumn
          Caption = #1071#1095#1077#1081#1082#1072
          DataBinding.FieldName = 'NUMBER'
          Width = 52
        end
        object clv1STRCODE: TcxGridDBColumn
          Caption = #1058#1086#1084
          DataBinding.FieldName = 'STRCODE'
          Width = 99
        end
        object clv1CNAME: TcxGridDBColumn
          Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077' '#1090#1086#1084#1072
          DataBinding.FieldName = 'CNAME'
          Width = 168
        end
        object clv1FIO: TcxGridDBColumn
          Caption = #1057#1086#1090#1088#1091#1076#1085#1080#1082
          DataBinding.FieldName = 'FIO'
          Width = 179
        end
        object clv1ORDERDOC: TcxGridDBColumn
          DataBinding.FieldName = 'ORDERDOC'
          Visible = False
        end
        object clv1KONTRAGENT: TcxGridDBColumn
          DataBinding.FieldName = 'KONTRAGENT'
          Visible = False
          Width = 121
        end
        object clv1KONTRNAME: TcxGridDBColumn
          Caption = #1054#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
          DataBinding.FieldName = 'KONTRNAME'
          Width = 185
        end
        object clv1STATE: TcxGridDBColumn
          Caption = #1057#1090#1072#1090#1091#1089
          DataBinding.FieldName = 'STATE'
          PropertiesClassName = 'TcxImageComboBoxProperties'
          Properties.ImmediatePost = True
          Properties.Items = <
            item
              Description = #1085#1077' '#1086#1087#1088#1077#1076#1077#1083#1077#1085#1086
              ImageIndex = 0
              Value = 0
            end
            item
              Description = #1085#1072' '#1084#1077#1089#1090#1077
              Value = 1
            end
            item
              Description = #1074#1099#1076#1072#1085#1072
              Value = 2
            end
            item
              Description = #1074' '#1089#1087#1077#1094#1080#1092#1080#1082#1072#1094#1080#1080
              Value = 3
            end>
          Width = 105
        end
      end
      object l1: TcxGridLevel
        GridView = v1
      end
    end
    object cbbKontr: TcxLookupComboBox
      Left = 79
      Top = 10
      Properties.DropDownSizeable = True
      Properties.ImmediatePost = True
      Properties.KeyFieldNames = 'CODE'
      Properties.ListColumns = <
        item
          FieldName = 'NAME'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = cmDb.src_KONTRAGENT
      Style.HotTrack = False
      TabOrder = 0
      Width = 174
    end
    object cbbUser: TcxLookupComboBox
      Left = 318
      Top = 10
      Properties.DropDownSizeable = True
      Properties.ImmediatePost = True
      Properties.KeyFieldNames = 'CODE'
      Properties.ListColumns = <
        item
          FieldName = 'FIOSHORT'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = cmDb.src_WORKER
      Style.HotTrack = False
      TabOrder = 1
      Width = 175
    end
    object cbbArkObject: TcxLookupComboBox
      Left = 541
      Top = 10
      Properties.DropDownSizeable = True
      Properties.ImmediatePost = True
      Properties.KeyFieldNames = 'CODE'
      Properties.ListColumns = <
        item
          FieldName = 'NAME'
        end>
      Properties.ListOptions.AnsiSort = True
      Properties.ListOptions.CaseInsensitive = True
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = srcArcObject
      Style.HotTrack = False
      TabOrder = 2
      Width = 160
    end
    object btnRefresh: TcxButton
      Left = 707
      Top = 10
      Width = 98
      Height = 25
      Caption = #1054#1073#1085#1086#1074#1080#1080#1090#1100
      OptionsImage.ImageIndex = 9
      OptionsImage.Images = cmDb.iml1
      TabOrder = 3
      OnClick = btnRefreshClick
    end
    object btnExcel: TcxButton
      Left = 811
      Top = 10
      Width = 46
      Height = 25
      Caption = 'Excel'
      OptionsImage.ImageIndex = 16
      OptionsImage.Images = cmDb.iml1
      PaintStyle = bpsGlyph
      TabOrder = 4
      OnClick = btnExcelClick
    end
    object grp1: TdxLayoutGroup
      AlignHorz = ahClient
      AlignVert = avClient
      ButtonOptions.Buttons = <>
      Hidden = True
      ShowBorder = False
      Index = -1
    end
    object itmlc1Item1: TdxLayoutItem
      AlignHorz = ahClient
      AlignVert = avClient
      CaptionOptions.Text = 'cxGrid1'
      CaptionOptions.Visible = False
      Parent = grplc1Group2
      Control = grd1
      ControlOptions.ShowBorder = False
      Index = 0
    end
    object grplc1Group1: TdxLayoutGroup
      CaptionOptions.Text = 'New Group'
      Parent = grp1
      ButtonOptions.Buttons = <>
      LayoutDirection = ldHorizontal
      ShowBorder = False
      Index = 0
    end
    object grplc1Group2: TdxLayoutGroup
      AlignHorz = ahClient
      AlignVert = avClient
      CaptionOptions.Text = 'New Group'
      Parent = grp1
      ButtonOptions.Buttons = <>
      ShowBorder = False
      Index = 1
    end
    object itmlc1Item11: TdxLayoutItem
      CaptionOptions.Text = #1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
      Parent = grplc1Group1
      Control = cbbKontr
      ControlOptions.ShowBorder = False
      Index = 0
    end
    object itmlc1Item12: TdxLayoutItem
      CaptionOptions.Text = #1089#1086#1090#1088#1091#1076#1085#1080#1082
      Parent = grplc1Group1
      Control = cbbUser
      ControlOptions.ShowBorder = False
      Index = 1
    end
    object itmlc1Item13: TdxLayoutItem
      CaptionOptions.Text = #1086#1073#1098#1077#1082#1090
      Parent = grplc1Group1
      Control = cbbArkObject
      ControlOptions.ShowBorder = False
      Index = 2
    end
    object itmlc1Item14: TdxLayoutItem
      CaptionOptions.Text = 'cxButton1'
      CaptionOptions.Visible = False
      Parent = grplc1Group1
      Control = btnRefresh
      ControlOptions.ShowBorder = False
      Index = 3
    end
    object itmlc1Item15: TdxLayoutItem
      CaptionOptions.Text = 'cxButton1'
      CaptionOptions.Visible = False
      Parent = grplc1Group1
      Control = btnExcel
      ControlOptions.ShowBorder = False
      Index = 4
    end
  end
  object lf1: TdxLayoutLookAndFeelList
    Left = 760
    Top = 120
    object lcf1: TdxLayoutCxLookAndFeel
    end
  end
  object prop1: TcxPropertiesStore
    Components = <>
    StorageName = 'prop1'
    Left = 728
    Top = 120
  end
  object dsRep: TpFIBDataSet
    SelectSQL.Strings = (
      'select DISTINCT(D.ARCPLACE),'
      '       A.STRCODE,'
      '       AO.NAME OBJNAME,'
      '       AR.NOTE ROOMNAME,'
      '       AP.NOMER RACKNAME,'
      '       A.SHELF,'
      '       A.NUMBER,'
      '       W.FIOSHORT FIO,'
      '       A.ORDERDOC,'
      '       DG.KONTRAGENT,'
      '       K.NAME KONTRNAME,'
      '       A.STATE, C.NAME CNAME'
      'from DOGDOC D'
      'left outer join ARCPLACE A on A.CODE = D.ARCPLACE'
      'left outer join COMPLECTDOC C on C.CODE = A.COMPLECTDOC'
      'left outer join ARCRACK AP on AP.CODE = A.ARCRACK'
      'left outer join ARCROOM AR on AR.CODE = AP.ARCROOM'
      'left outer join ARCOBJECT AO on AO.CODE = AR.ARCOBJECT'
      'left outer join WORKER W on W.CODE = A.WORKER'
      'left outer join DOGDOP DD on DD.CODE = D.DOPDOG'
      'left outer join DOG DG on DG.CODE = DD.DOG'
      'left outer join KONTRAGENT K on K.CODE = DG.KONTRAGENT')
    Transaction = cmDb.RT
    Database = cmDb.DB
    UpdateTransaction = cmDb.WT
    Left = 280
    Top = 256
  end
  object srcRep: TDataSource
    DataSet = dsRep
    Left = 312
    Top = 256
  end
  object dsArcObject: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    A.CODE,'
      '    A.NAME,'
      '    A.ADDR'
      'FROM'
      '    ARCOBJECT A'
      'ORDER BY NAME    ')
    Transaction = cmDb.RT
    Database = cmDb.DB
    UpdateTransaction = cmDb.WT
    Left = 280
    Top = 384
  end
  object srcArcObject: TDataSource
    DataSet = dsArcObject
    Left = 312
    Top = 384
  end
end
